home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / graphix demo 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  809 b   |  31 lines
  1. 100 !sc,2:!co,208:!pn,1:poke53280,0
  2. 105 forx=0to319step5:!dr,x,100-cos(x/50)*60,319-x,100+cos(x/50)*100:next
  3. 110 gosub230
  4. 115 !sc,2:!co,18:poke53280,2
  5. 120 forx=0to280step4:!dr,x,100+sin(x/50)*100,319-x,100+cos(x/25)*50:next
  6. 125 gosub230
  7. 130 !sc,2:!co,97:poke53280,1
  8. 135 forx=0to315step4:!dr,x,100+sin(x/50)*40,319-x,100+sin(x/50)*100:next
  9. 140 gosub230
  10. 145 !sc,2:!co,16:poke53280,0
  11. 150 fori=0to319step2:!dr,160,100,i,100+cos(i)*100:next
  12. 155 gosub230
  13. 160 fori=0to24
  14. 165 c=int(rnd(0)*16)*16:ifc=0then165
  15. 170 forj=0to40:!bl,j+i*40,c:next:next
  16. 175 gosub230
  17. 180 !sc,2:!co,219:poke53280,11
  18. 185 fori=0to315step4:!dr,i,130+abs(sin(i/50)*50),319-i,9+abs(sin(i/50)*50):next
  19. 190 gosub230
  20. 195 !sc,2:!co,114:poke53280,2
  21. 200 poke50251,11:forn=0to8:poke50243,n:!cr,160,100,122:next
  22. 205 gosub230
  23. 210 !sc,2:!co,110:poke53280,14
  24. 215 fori=0to315step4
  25. 216 !dr,319-i,100-abs(sin(i/50)*100),i,100+abs(sin(i/50)*100):next
  26. 220 gosub230
  27. 225 !sc,0:poke53280,14:end
  28. 230 geta$:ifa$=""then230
  29. 235 ifa$="[133]"then225
  30. 240 return
  31.